<%
function param(name)
	param = Request.Form(name)
end function

sub redirect_to(controller, action, id)
	dim url
	url = "/?c=" & controller
	if not isnull(action) then
		url = url & "&a=" & action
	end if
	if not isnull(id) then
		url = url & "&id=" & id
	end if
	Response.Redirect url
end Sub

sub link_to(controller, action, id)
	dim url
	url = "/?c=" & controller
	if not isnull(action) then
		url = url & "&a=" & action
	end if
	if not isnull(id) then
		url = url & "&id=" & id
	end if
	Response.Write url
end sub
%>